10 REM   READ INFOCOM
15 REM   1/3/87
20 REM   THOMAS W. GURLEY
25 REM   P.O. BOX 133
30 REM   WILLS POINT, TEXAS, 75169
35 :
40 :
100 POKE55,0:POKE56,42:CLR:REM LOWER TOP OF BASIC
110 AA=0:AB=0:AC=0:AD=0:M=0:N=0:O=0:NX=0:NN=0:DIML(6):REM DEFINE VARIABLES
120 PRINT"              READ INFOCOM"
130 PRINT"START ";: INPUT"ADDRESS";NX
140 PRINT"INCREMENT  1     2": INPUTNN: IFNN<1ORNN>2THEN140
150 IFNX=0THENNX=10816:REM START OF SHORT QUICK SEARCH WORD LIST
160 IFPEEK(197)=4THENPRINT"ADDRESS IS "NX: GOTO130:REM CHANGE ADDRESS WITH F1
170 AA=PEEK(NX):AB=PEEK(NX+1):AC=PEEK(NX+2):AD=PEEK(NX+3)
180 M=0:N=0:O=0
190 REM   95 94 97 96                             AA AB AC AD
200 L(1)=INT((AA-20)/4)+64:REM THE '+64' AND '+59' RESTORE ALPHABET POSITION
210 L(3)=(AB AND 31)+59:REM 'AND 31' DROPS TOP THREE BITS
220 M=INT((AB AND 240)/32)+59:REM 'AND 240' TAKES TOP BITS ONLY
230 IF(AA AND 1)=1 THEN N=8:REM RESTORE CARRY ON SECOND 'ROL'
240 IF(AA AND 2)=2 THEN O=16:REM RESTORE CARRY ON FIRST 'ROL'
250 L(2)=M+N+O:REM ADD CARRIES BACK IN
260 REM SECOND HALF
270 M=0:N=0:O=0:REM CANCEL CARRIES
280 L(4)=INT((AC-20)/4)+64
290 L(6)=(AD AND 31)+59
300 M=INT((AD AND 240)/32)+59
310 IF(AC AND 1)=1 THEN N=8
320 IF)AC AND 2)=2 THEN O=16
330 L(5)=M+N+0
340 PRINT:PRINT NX
350 FORX=1TO6:A=L(X) AND 223:IFA<65ORA>90THENA=46:REM '.' = INVALID CHARACTER
360 REM THE 'AND' 223 CLEARS BIT 5 TO MAKE LOWER CASE CHARACTER
370 L(X)=A:NEXT
380 FORX=1TO6:PRINTCHR$(L(X));:NEXT:PRINT
390 IFPEEK(654)=1THEN390:REM HOLD WITH SHIFT LOCK
400 NX=NX+NN:GOTO160